← Index
NYTProf Performance Profile   
For ../prof.pl
  Run on Wed Dec 14 15:57:08 2022
Reported on Wed Dec 14 16:00:37 2022

Filename(eval 416)[/Users/ether/.perlbrew/libs/36.0@std/lib/perl5/Sub/Quote.pm:3]
StatementsExecuted 80 statements in 3.46ms
Eval Invoked At/Users/ether/.perlbrew/libs/36.0@std/lib/perl5/Sub/Quote.pm line 3
Sibling evals1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79, 80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95, 96, 97, 98, 99, 100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 111, 112, 113
Subroutines
Calls P F Exclusive
Time		 Inclusive
Time		 Subroutine
22250µs17.2msJSON::Schema::Modern::::newJSON::Schema::Modern::new
11146µs75µsJSON::Schema::Modern::::BEGIN@22.300JSON::Schema::Modern::BEGIN@22.300
11115µs39µsJSON::Schema::Modern::::BEGIN@106JSON::Schema::Modern::BEGIN@106
11111µs35µsJSON::Schema::Modern::::BEGIN@111JSON::Schema::Modern::BEGIN@111
1119µs27µsJSON::Schema::Modern::::BEGIN@65JSON::Schema::Modern::BEGIN@65
1119µs20µsJSON::Schema::Modern::::BEGIN@80JSON::Schema::Modern::BEGIN@80
1118µs21µsJSON::Schema::Modern::::BEGIN@116JSON::Schema::Modern::BEGIN@116
1117µs19µsJSON::Schema::Modern::::BEGIN@140JSON::Schema::Modern::BEGIN@140
1117µs23µsJSON::Schema::Modern::::BEGIN@145JSON::Schema::Modern::BEGIN@145
1117µs19µsJSON::Schema::Modern::::BEGIN@158JSON::Schema::Modern::BEGIN@158
1117µs19µsJSON::Schema::Modern::::BEGIN@60JSON::Schema::Modern::BEGIN@60
1117µs19µsJSON::Schema::Modern::::BEGIN@70JSON::Schema::Modern::BEGIN@70
1116µs17µsJSON::Schema::Modern::::BEGIN@150JSON::Schema::Modern::BEGIN@150
1116µs21µsJSON::Schema::Modern::::BEGIN@55JSON::Schema::Modern::BEGIN@55
1116µs13µsJSON::Schema::Modern::::BEGIN@75JSON::Schema::Modern::BEGIN@75
1116µs21µsJSON::Schema::Modern::::BEGIN@85JSON::Schema::Modern::BEGIN@85
1115µs5µsJSON::Schema::Modern::::BEGIN@27.301JSON::Schema::Modern::BEGIN@27.301
1115µs16µsJSON::Schema::Modern::::BEGIN@90JSON::Schema::Modern::BEGIN@90
1115µs15µsJSON::Schema::Modern::::BEGIN@98JSON::Schema::Modern::BEGIN@98
Call graph for these subroutines as a Graphviz dot language file.
Line State
ments		 Time
on line		 Calls Time
in subs		 Code
1{
223µs my $isa_check_for_specification_5fversion = ${$_[1]->{"\$isa_check_for_specification_5fversion"}};
310s my $isa_check_for__5fmedia_5ftype = ${$_[1]->{"\$isa_check_for__5fmedia_5ftype"}};
410s my $isa_check_for_short_5fcircuit = ${$_[1]->{"\$isa_check_for_short_5fcircuit"}};
511µs my $isa_check_for_scalarref_5fbooleans = ${$_[1]->{"\$isa_check_for_scalarref_5fbooleans"}};
610s my $isa_check_for__5fmetaschema_5fvocabulary_5fclasses = ${$_[1]->{"\$isa_check_for__5fmetaschema_5fvocabulary_5fclasses"}};
711µs my $isa_check_for_output_5fformat = ${$_[1]->{"\$isa_check_for_output_5fformat"}};
811µs my $isa_check_for__5fjson_5fdecoder = ${$_[1]->{"\$isa_check_for__5fjson_5fdecoder"}};
910s my $isa_check_for_collect_5fannotations = ${$_[1]->{"\$isa_check_for_collect_5fannotations"}};
1010s my $isa_check_for_validate_5fcontent_5fschemas = ${$_[1]->{"\$isa_check_for_validate_5fcontent_5fschemas"}};
1111µs my $isa_check_for_max_5ftraversal_5fdepth = ${$_[1]->{"\$isa_check_for_max_5ftraversal_5fdepth"}};
1210s my $isa_check_for__5fresource_5findex = ${$_[1]->{"\$isa_check_for__5fresource_5findex"}};
1310s my $isa_check_for__5fvocabulary_5fclasses = ${$_[1]->{"\$isa_check_for__5fvocabulary_5fclasses"}};
1411µs my $isa_check_for__5fformat_5fvalidations = ${$_[1]->{"\$isa_check_for__5fformat_5fvalidations"}};
1510s my $isa_check_for_validate_5fformats = ${$_[1]->{"\$isa_check_for_validate_5fformats"}};
1611µs my $isa_check_for__5fencoding = ${$_[1]->{"\$isa_check_for__5fencoding"}};
1711µs my $_QUOTED = ${$_[1]->{"\$_QUOTED"}};
1810s my $isa_check_for_strict = ${$_[1]->{"\$isa_check_for_strict"}};
1911µs my $_UNQUOTED = ${$_[1]->{"\$_UNQUOTED"}};
2010s my $coerce_for_specification_5fversion = ${$_[1]->{"\$coerce_for_specification_5fversion"}};
21 package JSON::Schema::Modern;
22262µs2104µs
# spent 75µs (46+29) within JSON::Schema::Modern::BEGIN@22.300 which was called: # once (46µs+29µs) by Sub::Quote::_clean_eval at line 22
no warnings 'closure';
# spent 75µs making 1 call to JSON::Schema::Modern::BEGIN@22.300 # spent 29µs making 1 call to warnings::unimport
23
# spent 17.2ms (50µs+17.1) within JSON::Schema::Modern::new which was called 2 times, avg 8.59ms/call: # once (9µs+17.1ms) by OpenAPI::Modern::__ANON__[/Users/ether/.perlbrew/libs/36.0@std/lib/perl5/OpenAPI/Modern.pm:79] at line 67 of OpenAPI/Modern.pm # once (41µs+41µs) by OpenAPI::Modern::__ANON__[/Users/ether/.perlbrew/libs/36.0@std/lib/perl5/OpenAPI/Modern.pm:79] at line 177 of Sub/Defer.pm
sub new {
24 ($_QUOTED,$_UNQUOTED) if 0;
25# BEGIN quote_sub PRELUDE
26package JSON::Schema::Modern;
27
# spent 5µs within JSON::Schema::Modern::BEGIN@27.301 which was called: # once (5µs+0s) by Sub::Quote::_clean_eval at line 32
BEGIN {
2811µs $^H = 2018;
2910s ${^WARNING_BITS} = "UUUUUUUUUUUUUUUUUUUU";
3013µs %^H = (
31 );
321139µs15µs}
# spent 5µs making 1 call to JSON::Schema::Modern::BEGIN@27.301
33# END quote_sub PRELUDE
3411µs my $invoker = CORE::shift();
3510s my $class = CORE::ref($invoker) ? CORE::ref($invoker) : $invoker;
3610s if ($class ne "JSON::Schema::Modern") {
37 if ($Moo::MAKERS{$class}) {
38 if ($Moo::MAKERS{$class}{constructor}) {
39 package JSON::Schema::Modern;
40 return $invoker->SUPER::new(@_);
41 }
42 Moo->_constructor_maker_for($class);
43 return $invoker->new(@_);
44 } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) {
45 return $meta->new_object(
46 $class->can("BUILDARGS") ? $class->BUILDARGS(@_)
47 : $class->Moo::Object::BUILDARGS(@_)
48 );
49 }
50 }
5119µs129µs my $args = $class->BUILDARGS(@_);
# spent 29µs making 1 call to JSON::Schema::Modern::BUILDARGS
5211µs Carp::croak("BUILDARGS did not return a hashref") unless CORE::ref($args) eq 'HASH';
5311µs my $new = bless({}, $class);;
54(exists $args->{"_encoding"} and ($new->{"_encoding"} = scalar do { my $value = $args->{"_encoding"};
552127µs236µs
# spent 21µs (6+15) within JSON::Schema::Modern::BEGIN@55 which was called: # once (6µs+15µs) by Sub::Quote::_clean_eval at line 55
(do { no warnings "void"; package Type::Tiny; (do { package Type::Tiny; (Ref::Util::XS::is_plain_hashref($value)) and do { my $ok = 1; for my $i (values %{$value}) { ($ok = 0, last) unless (Ref::Util::XS::is_plain_coderef($i)) }; $ok } }) or Type::Tiny::_failed_check($isa_check_for__5fencoding, "HashRef[CodeRef]", $value, "attribute_name","_encoding","attribute_step","isa check","mgaca","0","varname","\$args->{\"_encoding\"}"); $value }),
# spent 21µs making 1 call to JSON::Schema::Modern::BEGIN@55 # spent 15µs making 1 call to warnings::unimport
56 $value
57}
58)),
59(exists $args->{"format_validations"} and ($new->{"_format_validations"} = scalar do { my $value = $args->{"format_validations"};
602555µs231µs
# spent 19µs (7+12) within JSON::Schema::Modern::BEGIN@60 which was called: # once (7µs+12µs) by Sub::Quote::_clean_eval at line 60
(do { no warnings "void"; package Type::Tiny; (do { package Type::Tiny; (Ref::Util::XS::is_plain_hashref($value)) and (not grep {my $v = ($value)->{$_};not((/\A(?:date\-time|date|time|duration|email|idn\-email|hostname|idn\-hostname|ipv4|ipv6|uri|uri\-reference|iri|iri\-reference|uuid|uri\-template|json\-pointer|relative\-json\-pointer|regex)\z/) or (((!!1)) and (do { package Type::Tiny; (Ref::Util::XS::is_plain_hashref($v)) and not(grep !/\A(?:type|sub)\z/, keys %{$v}) and exists($v->{"type"}) and (defined($v->{"type"}) and !ref($v->{"type"}) and $v->{"type"} =~ m{\A(?:(?:array|boolean|integer|nu(?:ll|mber)|object|string))\z}) and exists($v->{"sub"}) and do { package Type::Tiny; Ref::Util::XS::is_plain_coderef($v->{"sub"}) } })))} keys %{$value}) and (!exists $value->{"date-time"} or (do { package Type::Tiny; Ref::Util::XS::is_plain_coderef($value->{"date-time"}) })) and (!exists $value->{"date"} or (do { package Type::Tiny; Ref::Util::XS::is_plain_coderef($value->{"date"}) })) and (!exists $value->{"time"} or (do { package Type::Tiny; Ref::Util::XS::is_plain_coderef($value->{"time"}) })) and (!exists $value->{"duration"} or (do { package Type::Tiny; Ref::Util::XS::is_plain_coderef($value->{"duration"}) })) and (!exists $value->{"email"} or (do { package Type::Tiny; Ref::Util::XS::is_plain_coderef($value->{"email"}) })) and (!exists $value->{"idn-email"} or (do { package Type::Tiny; Ref::Util::XS::is_plain_coderef($value->{"idn-email"}) })) and (!exists $value->{"hostname"} or (do { package Type::Tiny; Ref::Util::XS::is_plain_coderef($value->{"hostname"}) })) and (!exists $value->{"idn-hostname"} or (do { package Type::Tiny; Ref::Util::XS::is_plain_coderef($value->{"idn-hostname"}) })) and (!exists $value->{"ipv4"} or (do { package Type::Tiny; Ref::Util::XS::is_plain_coderef($value->{"ipv4"}) })) and (!exists $value->{"ipv6"} or (do { package Type::Tiny; Ref::Util::XS::is_plain_coderef($value->{"ipv6"}) })) and (!exists $value->{"uri"} or (do { package Type::Tiny; Ref::Util::XS::is_plain_coderef($value->{"uri"}) })) and (!exists $value->{"uri-reference"} or (do { package Type::Tiny; Ref::Util::XS::is_plain_coderef($value->{"uri-reference"}) })) and (!exists $value->{"iri"} or (do { package Type::Tiny; Ref::Util::XS::is_plain_coderef($value->{"iri"}) })) and (!exists $value->{"iri-reference"} or (do { package Type::Tiny; Ref::Util::XS::is_plain_coderef($value->{"iri-reference"}) })) and (!exists $value->{"uuid"} or (do { package Type::Tiny; Ref::Util::XS::is_plain_coderef($value->{"uuid"}) })) and (!exists $value->{"uri-template"} or (do { package Type::Tiny; Ref::Util::XS::is_plain_coderef($value->{"uri-template"}) })) and (!exists $value->{"json-pointer"} or (do { package Type::Tiny; Ref::Util::XS::is_plain_coderef($value->{"json-pointer"}) })) and (!exists $value->{"relative-json-pointer"} or (do { package Type::Tiny; Ref::Util::XS::is_plain_coderef($value->{"relative-json-pointer"}) })) and (!exists $value->{"regex"} or (do { package Type::Tiny; Ref::Util::XS::is_plain_coderef($value->{"regex"}) })) }) or Type::Tiny::_failed_check($isa_check_for__5fformat_5fvalidations, "Dict[date=>Optional[CodeRef],date-time=>Optional[CodeRef],duration=>Optional[CodeRef],email=>Optional[CodeRef],hostname=>Optional[CodeRef],idn-email=>Optional[CodeRef],idn-hostname=>Optional[CodeRef],ipv4=>Optional[CodeRef],ipv6=>Optional[CodeRef],iri=>Optional[CodeRef],iri-reference=>Optional[CodeRef],json-pointer=>Optional[CodeRef],regex=>Optional[CodeRef],relative-json-pointer=>Optional[CodeRef],time=>Optional[CodeRef],uri=>Optional[CodeRef],uri-reference=>Optional[CodeRef],uri-template=>Optional[CodeRef],uuid=>Optional[CodeRef],Slurpy[HashRef[Dict[sub=>CodeRef,type=>Enum[\"null\",\"object\",\"array\",\"boolean\",\"string\",\"number\",\"integer\"]]]]]", $value, "attribute_name","_format_validations","attribute_step","isa check","mgaca","0","varname","\$args->{\"format_validations\"}"); $value }),
# spent 19µs making 1 call to JSON::Schema::Modern::BEGIN@60 # spent 12µs making 1 call to warnings::unimport
61 $value
62}
63)),
64(exists $args->{"_json_decoder"} and ($new->{"_json_decoder"} = scalar do { my $value = $args->{"_json_decoder"};
652111µs245µs
# spent 27µs (9+18) within JSON::Schema::Modern::BEGIN@65 which was called: # once (9µs+18µs) by Sub::Quote::_clean_eval at line 65
(do { no warnings "void"; package Type::Tiny; (( Scalar::Util::blessed($value) and not grep(!$value->can($_), qw/encode decode/) )) or Type::Tiny::_failed_check($isa_check_for__5fjson_5fdecoder, "HasMethods[\"encode\",\"decode\"]", $value, "attribute_name","_json_decoder","attribute_step","isa check","mgaca","0","varname","\$args->{\"_json_decoder\"}"); $value }),
# spent 27µs making 1 call to JSON::Schema::Modern::BEGIN@65 # spent 18µs making 1 call to warnings::unimport
66 $value
67}
68)),
69(exists $args->{"_media_type"} and ($new->{"_media_type"} = scalar do { my $value = $args->{"_media_type"};
702134µs231µs
# spent 19µs (7+12) within JSON::Schema::Modern::BEGIN@70 which was called: # once (7µs+12µs) by Sub::Quote::_clean_eval at line 70
(do { no warnings "void"; package Type::Tiny; (do { package Type::Tiny; (Ref::Util::XS::is_plain_hashref($value)) and do { my $ok = 1; for my $v (values %{$value}) { ($ok = 0, last) unless (Ref::Util::XS::is_plain_coderef($v)) }; for my $k (keys %{$value}) { ($ok = 0, last) unless ((do { package Type::Tiny; defined($k) and do { ref(\$k) eq 'SCALAR' or ref(\(my $val = $k)) eq 'SCALAR' } }) && (do { local $_ = $k; $_ eq CORE::fc($_) })) }; $ok } }) or Type::Tiny::_failed_check($isa_check_for__5fmedia_5ftype, "Map[__ANON__,CodeRef]", $value, "attribute_name","_media_type","attribute_step","isa check","mgaca","0","varname","\$args->{\"_media_type\"}"); $value }),
# spent 19µs making 1 call to JSON::Schema::Modern::BEGIN@70 # spent 12µs making 1 call to warnings::unimport
71 $value
72}
73)),
74(exists $args->{"_metaschema_vocabulary_classes"} and ($new->{"_metaschema_vocabulary_classes"} = scalar do { my $value = $args->{"_metaschema_vocabulary_classes"};
752209µs220µs
# spent 13µs (6+7) within JSON::Schema::Modern::BEGIN@75 which was called: # once (6µs+7µs) by Sub::Quote::_clean_eval at line 75
(do { no warnings "void"; package Type::Tiny; (do { package Type::Tiny; (Ref::Util::XS::is_plain_hashref($value)) and do { my $ok = 1; for my $i (values %{$value}) { ($ok = 0, last) unless do { package Type::Tiny; (Ref::Util::XS::is_plain_arrayref($i)) and @{$i} == 2 and (defined($i->[0]) and !ref($i->[0]) and $i->[0] =~ m{\A(?:draft(?:20(?:19\-09|20\-12)|7))\z}) and do { package Type::Tiny; (Ref::Util::XS::is_plain_arrayref($i->[1])) and do { my $ok = 1; for my $i (@{$i->[1]}) { ($ok = 0, last) unless ((do { package Type::Tiny; Types::Standard::_is_class_loaded(do { my $tmp = $i }) }) && (do { local $_ = $i; $_->DOES('JSON::Schema::Modern::Vocabulary') })) }; $ok } } } }; $ok } }) or Type::Tiny::_failed_check($isa_check_for__5fmetaschema_5fvocabulary_5fclasses, "HashRef[Tuple[Enum[\"draft7\",\"draft2019-09\",\"draft2020-12\"],ArrayRef[__ANON__]]]", $value, "attribute_name","_metaschema_vocabulary_classes","attribute_step","isa check","mgaca","0","varname","\$args->{\"_metaschema_vocabulary_classes\"}"); $value }),
# spent 13µs making 1 call to JSON::Schema::Modern::BEGIN@75 # spent 7µs making 1 call to warnings::unimport
76 $value
77}
78)),
79(exists $args->{"_resource_index"} and ($new->{"_resource_index"} = scalar do { my $value = $args->{"_resource_index"};
802358µs231µs
# spent 20µs (9+11) within JSON::Schema::Modern::BEGIN@80 which was called: # once (9µs+11µs) by Sub::Quote::_clean_eval at line 80
(do { no warnings "void"; package Type::Tiny; (do { package Type::Tiny; (Ref::Util::XS::is_plain_hashref($value)) and do { my $ok = 1; for my $i (values %{$value}) { ($ok = 0, last) unless do { package Type::Tiny; (Ref::Util::XS::is_plain_hashref($i)) and (not grep {my $v = ($i)->{$_};not((/\A(?:canonical_uri|path|specification_version|document|vocabularies|configs)\z/) or (((!!1)) and ((!defined($v)))))} keys %{$i}) and exists($i->{"canonical_uri"}) and do { package Type::Tiny; Scalar::Util::blessed($i->{"canonical_uri"}) and $i->{"canonical_uri"}->isa(q[Mojo::URL]) } and exists($i->{"path"}) and do { package Type::Tiny; defined($i->{"path"}) and do { ref(\$i->{"path"}) eq 'SCALAR' or ref(\(my $val = $i->{"path"})) eq 'SCALAR' } } and exists($i->{"specification_version"}) and (defined($i->{"specification_version"}) and !ref($i->{"specification_version"}) and $i->{"specification_version"} =~ m{\A(?:draft(?:20(?:19\-09|20\-12)|7))\z}) and exists($i->{"document"}) and do { package Type::Tiny; Scalar::Util::blessed($i->{"document"}) and $i->{"document"}->isa(q[JSON::Schema::Modern::Document]) } and exists($i->{"vocabularies"}) and (do { package Type::Tiny; Ref::Util::XS::is_plain_arrayref($i->{"vocabularies"}) } and do { my $ok = 1; for my $i (@{$i->{"vocabularies"}}) { ($ok = 0, last) unless ((do { package Type::Tiny; Types::Standard::_is_class_loaded(do { my $tmp = $i }) }) && (do { local $_ = $i; $_->DOES('JSON::Schema::Modern::Vocabulary') })) }; $ok }) and exists($i->{"configs"}) and do { package Type::Tiny; Ref::Util::XS::is_plain_hashref($i->{"configs"}) } } }; $ok } }) or Type::Tiny::_failed_check($isa_check_for__5fresource_5findex, "HashRef[Dict[canonical_uri=>InstanceOf[\"Mojo::URL\"],configs=>HashRef,document=>InstanceOf[\"JSON::Schema::Modern::Document\"],path=>Str,specification_version=>Enum[\"draft7\",\"draft2019-09\",\"draft2020-12\"],vocabularies=>ArrayRef[__ANON__],Slurpy[HashRef[Undef]]]]", $value, "attribute_name","_resource_index","attribute_step","isa check","mgaca","0","varname","\$args->{\"_resource_index\"}"); $value }),
# spent 20µs making 1 call to JSON::Schema::Modern::BEGIN@80 # spent 11µs making 1 call to warnings::unimport
81 $value
82}
83)),
84(exists $args->{"_vocabulary_classes"} and ($new->{"_vocabulary_classes"} = scalar do { my $value = $args->{"_vocabulary_classes"};
852176µs236µs
# spent 21µs (6+15) within JSON::Schema::Modern::BEGIN@85 which was called: # once (6µs+15µs) by Sub::Quote::_clean_eval at line 85
(do { no warnings "void"; package Type::Tiny; (do { package Type::Tiny; (Ref::Util::XS::is_plain_hashref($value)) and do { my $ok = 1; for my $i (values %{$value}) { ($ok = 0, last) unless do { package Type::Tiny; (Ref::Util::XS::is_plain_arrayref($i)) and @{$i} == 2 and (defined($i->[0]) and !ref($i->[0]) and $i->[0] =~ m{\A(?:draft(?:20(?:19\-09|20\-12)|7))\z}) and ((do { package Type::Tiny; Types::Standard::_is_class_loaded(do { my $tmp = $i->[1] }) }) && (do { local $_ = $i->[1]; $_->DOES('JSON::Schema::Modern::Vocabulary') })) } }; $ok } }) or Type::Tiny::_failed_check($isa_check_for__5fvocabulary_5fclasses, "HashRef[Tuple[Enum[\"draft7\",\"draft2019-09\",\"draft2020-12\"],__ANON__]]", $value, "attribute_name","_vocabulary_classes","attribute_step","isa check","mgaca","0","varname","\$args->{\"_vocabulary_classes\"}"); $value }),
# spent 21µs making 1 call to JSON::Schema::Modern::BEGIN@85 # spent 15µs making 1 call to warnings::unimport
86 $value
87}
88)),
89(exists $args->{"collect_annotations"} and ($new->{"collect_annotations"} = scalar do { my $value = $args->{"collect_annotations"};
90277µs227µs
# spent 16µs (5+11) within JSON::Schema::Modern::BEGIN@90 which was called: # once (5µs+11µs) by Sub::Quote::_clean_eval at line 90
(do { no warnings "void"; package Type::Tiny; ((!ref $value and (!defined $value or $value eq q() or $value eq '0' or $value eq '1'))) or Type::Tiny::_failed_check($isa_check_for_collect_5fannotations, "Bool", $value, "attribute_name","collect_annotations","attribute_step","isa check","mgaca","0","varname","\$args->{\"collect_annotations\"}"); $value }),
# spent 16µs making 1 call to JSON::Schema::Modern::BEGIN@90 # spent 11µs making 1 call to warnings::unimport
91 $value
92}
93)),
94($new->{"max_traversal_depth"} = scalar do { my $value = (
95 exists $args->{"max_traversal_depth"}
9611µs ? $args->{"max_traversal_depth"}
97 : 50);
987224µs334µs
# spent 15µs (5+10) within JSON::Schema::Modern::BEGIN@98 which was called: # once (5µs+10µs) by Sub::Quote::_clean_eval at line 98
(do { no warnings "void"; package Type::Tiny; ((do { my $tmp = $value; defined($tmp) and !ref($tmp) and $tmp =~ /\A-?[0-9]+\z/ })) or Type::Tiny::_failed_check($isa_check_for_max_5ftraversal_5fdepth, "Int", $value, "attribute_name","max_traversal_depth","attribute_step","isa check","mgaca","0","varname","\$args->{\"max_traversal_depth\"}"); $value }),
# spent 15µs making 1 call to JSON::Schema::Modern::BEGIN@98 # spent 10µs making 1 call to warnings::unimport # spent 9µs making 1 call to Type::Tiny::CORE:match
99 $value
100}
101),
102($new->{"output_format"} = scalar do { my $value = (
103 exists $args->{"output_format"}
10410s ? $args->{"output_format"}
105 : "basic");
1065229µs366µs
# spent 39µs (15+24) within JSON::Schema::Modern::BEGIN@106 which was called: # once (15µs+24µs) by Sub::Quote::_clean_eval at line 106
(do { no warnings "void"; package Type::Tiny; ((defined($value) and !ref($value) and $value =~ m{\A(?:(?:basic|d(?:ata_only|etailed)|flag|strict_basic|terse|verbose))\z})) or Type::Tiny::_failed_check($isa_check_for_output_5fformat, "Enum[\"flag\",\"basic\",\"strict_basic\",\"detailed\",\"verbose\",\"terse\",\"data_only\"]", $value, "attribute_name","output_format","attribute_step","isa check","mgaca","0","varname","\$args->{\"output_format\"}"); $value }),
# spent 39µs making 1 call to JSON::Schema::Modern::BEGIN@106 # spent 24µs making 1 call to warnings::unimport # spent 3µs making 1 call to Type::Tiny::CORE:match
107 $value
108}
109),
110(exists $args->{"scalarref_booleans"} and ($new->{"scalarref_booleans"} = scalar do { my $value = $args->{"scalarref_booleans"};
111293µs259µs
# spent 35µs (11+24) within JSON::Schema::Modern::BEGIN@111 which was called: # once (11µs+24µs) by Sub::Quote::_clean_eval at line 111
(do { no warnings "void"; package Type::Tiny; ((!ref $value and (!defined $value or $value eq q() or $value eq '0' or $value eq '1'))) or Type::Tiny::_failed_check($isa_check_for_scalarref_5fbooleans, "Bool", $value, "attribute_name","scalarref_booleans","attribute_step","isa check","mgaca","0","varname","\$args->{\"scalarref_booleans\"}"); $value }),
# spent 35µs making 1 call to JSON::Schema::Modern::BEGIN@111 # spent 24µs making 1 call to warnings::unimport
112 $value
113}
114)),
115(exists $args->{"short_circuit"} and ($new->{"short_circuit"} = scalar do { my $value = $args->{"short_circuit"};
1162162µs234µs
# spent 21µs (8+13) within JSON::Schema::Modern::BEGIN@116 which was called: # once (8µs+13µs) by Sub::Quote::_clean_eval at line 116
(do { no warnings "void"; package Type::Tiny; ((!ref $value and (!defined $value or $value eq q() or $value eq '0' or $value eq '1'))) or Type::Tiny::_failed_check($isa_check_for_short_5fcircuit, "Bool", $value, "attribute_name","short_circuit","attribute_step","isa check","mgaca","0","varname","\$args->{\"short_circuit\"}"); $value }),
# spent 21µs making 1 call to JSON::Schema::Modern::BEGIN@116 # spent 13µs making 1 call to warnings::unimport
117 $value
118}
119)),
120(exists $args->{"specification_version"} and ($new->{"specification_version"} = scalar do { my $value = do {
121 local $Method::Generate::Accessor::CurrentAttribute = {
122 init_arg => "specification_version",
123 name => "specification_version",
124 step => "coercion",
125 };
126 (my $_return),
127 (my $_error), (my $_old_error = $@);
128 (eval {
129 ($@ = $_old_error),
130 ($_return =
131$coerce_for_specification_5fversion->($args->{"specification_version"})),
132 1
133 } or
134 $_error = CORE::ref $@ ? $@ : "coercion for \"specification_version\" failed: ".$@);
135 ($@ = $_old_error),
136 (defined $_error and CORE::die $_error);
137 $_return;
138}
139;
1402118µs231µs
# spent 19µs (7+12) within JSON::Schema::Modern::BEGIN@140 which was called: # once (7µs+12µs) by Sub::Quote::_clean_eval at line 140
(do { no warnings "void"; package Type::Tiny; ((defined($value) and !ref($value) and $value =~ m{\A(?:draft(?:20(?:19\-09|20\-12)|7))\z})) or Type::Tiny::_failed_check($isa_check_for_specification_5fversion, "Enum[\"draft7\",\"draft2019-09\",\"draft2020-12\"]", $value, "attribute_name","specification_version","attribute_step","isa check","mgaca","0","varname","\$args->{\"specification_version\"}"); $value }),
# spent 19µs making 1 call to JSON::Schema::Modern::BEGIN@140 # spent 12µs making 1 call to warnings::unimport
141 $value
142}
143)),
144(exists $args->{"strict"} and ($new->{"strict"} = scalar do { my $value = $args->{"strict"};
145286µs239µs
# spent 23µs (7+16) within JSON::Schema::Modern::BEGIN@145 which was called: # once (7µs+16µs) by Sub::Quote::_clean_eval at line 145
(do { no warnings "void"; package Type::Tiny; ((!ref $value and (!defined $value or $value eq q() or $value eq '0' or $value eq '1'))) or Type::Tiny::_failed_check($isa_check_for_strict, "Bool", $value, "attribute_name","strict","attribute_step","isa check","mgaca","0","varname","\$args->{\"strict\"}"); $value }),
# spent 23µs making 1 call to JSON::Schema::Modern::BEGIN@145 # spent 16µs making 1 call to warnings::unimport
146 $value
147}
148)),
149(exists $args->{"validate_content_schemas"} and ($new->{"validate_content_schemas"} = scalar do { my $value = $args->{"validate_content_schemas"};
150280µs228µs
# spent 17µs (6+11) within JSON::Schema::Modern::BEGIN@150 which was called: # once (6µs+11µs) by Sub::Quote::_clean_eval at line 150
(do { no warnings "void"; package Type::Tiny; ((!ref $value and (!defined $value or $value eq q() or $value eq '0' or $value eq '1'))) or Type::Tiny::_failed_check($isa_check_for_validate_5fcontent_5fschemas, "Bool", $value, "attribute_name","validate_content_schemas","attribute_step","isa check","mgaca","0","varname","\$args->{\"validate_content_schemas\"}"); $value }),
# spent 17µs making 1 call to JSON::Schema::Modern::BEGIN@150 # spent 11µs making 1 call to warnings::unimport
151 $value
152}
153)),
154112µs($new->{"validate_formats"} = scalar do { my $value = (
155 exists $args->{"validate_formats"}
15610s ? $args->{"validate_formats"}
157 : 0);
1585461µs231µs
# spent 19µs (7+12) within JSON::Schema::Modern::BEGIN@158 which was called: # once (7µs+12µs) by Sub::Quote::_clean_eval at line 158
(do { no warnings "void"; package Type::Tiny; ((!ref $value and (!defined $value or $value eq q() or $value eq '0' or $value eq '1'))) or Type::Tiny::_failed_check($isa_check_for_validate_5fformats, "Bool", $value, "attribute_name","validate_formats","attribute_step","isa check","mgaca","0","varname","\$args->{\"validate_formats\"}"); $value }),
# spent 19µs making 1 call to JSON::Schema::Modern::BEGIN@158 # spent 12µs making 1 call to warnings::unimport
159 $value
160}
161),
162 return $new;
163 }
16412µs $$_UNQUOTED = \&new;
165}
166113µs1;
167
168;
Report produced by the NYTProf 6.12 Perl profiler, developed by Tim Bunce based on work by Adam Kaplan and Salvador Fandiño García.